跪求 下一篇 上一篇 的代码[名字好玩吧?]

来源:百度知道 编辑:UC知道 时间:2024/06/16 03:44:38
我们常常在浏览网站文章、新闻的时候,都会发现,上一篇新闻,这下一张图片这样的代码,但不知这样的效果怎么做的。应该可以用简短的ASP语句就可以实现,但贱弟不才,实在新手,不栗赐教大家。如谁能给出这样的代码,实感3Q。

上一张图片:
下一张图片:
上一张新闻:
下一张新闻:

其实就是一个分页程序...
给你一段程序..先看看...有不明白的地方可以发消息我..
<%
if request("page")<>"" then
currentPage=cint(request("page"))
If currentpage<=0 Then currentpage=1
else
currentPage=1
end If

sql="SELECT id, title, pub_date, FileDir FROM webnews1 where pub_date<'"&year(now)&"-"&month(now)&"-"&day(now)&"'"
If newsclassid<>"" And IsNumeric(newsclassid) Then
sql=sql&" and newsclass="&newsclassid
End if
sql=sql&" ORDER BY create_date DESC"

'response.write sql

Set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,3,1
If rs.bof And rs.eof Then
response.write "<tr><td height=30 colspan=4 align=center><font color=red>暂无!</font></td></tr>"
Else
MaxPerPage=30
totalPut=rs.recordcoun